www.gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\Main.asp

    <!-- #include file="Login.asp" -->

<div align=center>
<center>
<table width="90%" height="100%">
<tr><td valign="top">
<b><font color="#3367F0" size="4">欢迎</font></b><font size="4"> <font color=red><%=Session("ZonGGadminnm")%></font> 
</font><b><font color="#3367F0" size="4">登陆广告管理系统</font></b><hr size="1"><i>
<font color="#FF9900">此次登陆将在静止20分钟后自动无效 ...
</font></i><BR><BR><BR>
<font face=宋体 size=3><b>您拥有以下管理权限</b> >>></font><BR><BR>
<%
	qxbs=PubFgdy(Session("ZonGGadminqx"),"#",0)
	pids=PubFgdy(Session("ZonGGadminqx"),"#",1)
	
if PubFgdy(qxbs,",",0)="1" then response.write " <font face=宋体 color=#FF0000>★</font> 管理员设置 <font face=宋体 color=#FF0000>>></font> <a href='GGadmins.asp'>已有管理员</a> <a href='GGadminNew.asp'>新增管理员</a> <br><br>"

if PubFgdy(qxbs,",",1)="1" then response.write " <font face=宋体 color=#FF0000>★</font> 广告图管理 <font face=宋体 color=#FF0000>>></font> <a href='GGpic.asp'>已有广告图</a> <br><br>"

if PubFgdy(qxbs,",",2)="1" then response.write " <font face=宋体 color=#FF0000>★</font> 分类/广告位总管 <font face=宋体 color=#FF0000>>></font> <a href='GGclass.asp'>已有分类/广告位</a> <a href='GGclass.asp?action=addc'>新增分类</a>  <a href='GGclass.asp?action=adds'>新增广告位</a> <br><br>"

if PubFgdy(qxbs,",",2)="2" then			  
			    Response.write " <font face=宋体 color=#FF0000>★</font> <b>对下列分类拥有更新、清理权限</b> <font face=宋体 color=#FF0000>>>></font> <BR><BR>"
			    Set RsLs=Server.CreateObject("ADODB.Recordset")     '开始广告分类循环  
			    RsLs.Open "select cid,cname from class ",conn,1,1
			    do while not RsLs.eof      
			      if instr(","&pids&",",","&RsLs(0)&",")>0 then response.write " <font face=宋体 color=#FF0000>>></font> "&RsLs(1)&" <font face=宋体 color=#FF0000>>></font> <a href='GGclass.asp?action=editc&cid="&RsLs(0)&"'>修改属性</a>  <a href='GGclassQl.asp?cid="&RsLs(0)&"'>执行清理</a>  <a href='GGclass.asp?action=adds&cid="&RsLs(0)&"'>新增广告位</a>  <a href='GGclassQl.asp?cid="&RsLs(0)&"'>执行清理</a>  <a href='GGclass.asp?cid="&RsLs(0)&"'>已有广告位</a>  <BR><BR>"
			    RsLs.movenext
			    loop
			    RsLs.Close
			    Set RsLs=Nothing
			    end if
%>

</td></tr>
<tr><td>
<!-- #include file="version.htm" -->
</td></tr></table>
</center></div>
</body>


</html>